home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc iii 85.d64 / 1541 saver.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  23 lines
  1. 10 :
  2. 20 REM*** THIS ROUTINE WILL PREVENT ***       *** THE DISK HEAD FROM        ***
  3. 30 REM*** CHATTERING AGAINST THE    ***       *** STOP IN THE DRIVE WHEN IT ***
  4. 40 REM*** IS LOADING A PROGRAM FROM ***       *** A DOS PROTECTED DISK.     ***
  5. 50 :
  6. 60 REM*** ALTHOUGH THE DOS          ***       *** PROTECTION SCHEME IS USED ***
  7. 70 REM*** FREQUENTLY ON DISKS NOW,  ***       *** CONTINUAL BANGING OF THE  ***
  8. 80 REM*** READ/WRITE HEAD AGAINST   ***       *** THE STOP IS BOUND TO      ***
  9. 90 REM*** HASTEN MISALINEMENT OF    ***       *** THE HEAD. THIS PROGRAM    ***
  10. 91 REM*** SHOULD BE RUN FIRST, AND  ***       *** THEN LOAD AND RUN THE DOS ***
  11. 92 REM*** PROTECTED DISK.           ***
  12. 93 :
  13. 94 REM*** TA-DA!! NO CHATTER!       ***
  14. 95 :
  15. 96 REM*** THANKS TO GILBERT HELLAND ***       *** FOR DISCOVERING THIS, AND ***
  16. 97 REM*** ESPECIALLY FOR SHARING IT ***       *** US.                       ***
  17. 98 REM*** BOB COKEL, 906 W 6TH AVE  ***       *** MONMOUTH, ILL, USA 61462  ***
  18. 99 :
  19. 100 POKE53280,0:POKE53281,0:PRINT"[147]":PRINTTAB(5)"1541 SAVER BY BOB COKEL"
  20. 110 PRINT"[144]O[208]15,8,15:P[210]15,"CHR$(34)"M-W"CHR$(34)";C[200](106)C[200](0)C[200](1)C[200](133):CL[207]15
  21. 120 [153]"OPEN":[151]631,13:[151]198,1:[128]
  22. 140 [143]?"O(null)15,8,15,"CHR$(34)"M-W"CHR$(34)";CLEFT$(106)CLEFT$(0)CLEFT$(1)CLEFT$(133):CL(null)15
  23.